home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 501_600 / DISK0510 / DISK0510.ZIP / LISTER < prev    next >
Text File  |  1985-08-08  |  768b  |  24 lines
  1. PROGRAM LISTER; {a simple program to add line numbers to a listing}
  2. {since it uses INPUT and OUTPUT for the files, you should run it like:
  3.  
  4. {       LISTER <INFILE  >OUTFILE
  5. {                                       or
  6. {       LISTER <INFILE  >PRN
  7. {                                       to write to the printer.
  8. {you could try:
  9. {       LISTER <LISTER                  to see this pgm. with line numbers.}
  10.  
  11. VAR
  12.   STR : STRING;         {for the line coming in; 80 char max!}
  13.   LINENUM : INTEGER;
  14.  
  15. BEGIN
  16.   LINENUM := 0;
  17.   WHILE NOT EOF DO
  18.     BEGIN
  19.       LINENUM := LINENUM + 1;
  20.       READLN(STR);
  21.       WRITELN(LINENUM:4,  ':',  STR);
  22.     END;
  23. END.
  24.